<%@ Page Language="vb" Debug="false" validateRequest="false" enableEventValidation="false"  MasterPageFile="~/admin/admin.master"%>
<%@ import Namespace="System.Data.OLEDB" %>
<script runat="server">
    dim iframedata as string
    Sub Page_Load(sender As Object, e As EventArgs)
        If Not Roles.IsUserInRole("admin") Then
            Response.Redirect("~/login.aspx")
        End If
        If Not IsPostBack() Then
            Session("queryvalue") = Request.QueryString("cms")
            Anzeigen()
        End If
    End Sub
    
    Sub Anzeigen()
        iframedata = "<br>Vorschau<br><iframe src='../default.aspx?cms=" & Session("queryvalue") & "' width='98%' height='800'></iframe>"
    End Sub

</script>

<asp:Content ID="Content1" runat="server" ContentPlaceHolderID="ContentPlaceHolder1">
    <%=(iframedata)%>
</asp:Content>
